<%

Function seguranca(nivel)
'Se o nivel for 0, significa que o usuario apenas esta tentando acessar uma pagina que precisa estar logado
'Se for diferente de 0 significa que o usuario esta tentando acessar uma pagian exclusiva que precise de uma chave de permissao

		DIM permissao, data, validade, rs

		if isLogin() then
		
			If nivel="0" then
			
				permissao = TRUE
			
			Else

				str = "Select id_usuario, validade FROM usuarios_permissoes where (tipo='"&nivel&"' OR tipo='master') AND id_usuario='"&get_id()&"'"
				Set rs = conexao_geral.Execute(str)
	
				if not rs.eof then
				
					validade = rs("validade")
				
					If isnull(validade) then
	
						permissao = TRUE
	
					Else
					
						data = get_data
					
						If diferenca_datas(data, data_pt_en(validade), "d") >= 0 then
					
							permissao = TRUE
							
						Else
						
							permissao = FALSE
						
						End If
					
					End If
	
				else
	
					permissao = FALSE
	
				End If
				
			End If

		Else
			
			permissao = FALSE

		End If

		seguranca = permissao

End Function

Function permissao(nivel)

		if seguranca(nivel) = FALSE then

			pagina_nao_encontrada

		End If

End Function

Function pagina_nao_encontrada()

			response.redirect("default.asp")
			response.redirect("pagina_nao_encontrada.asp")

End Function

Function pagina_check(id)

			if id="" then
			
				pagina_nao_encontrada
			
			End If

End Function

Function permissao_tabelas(tabela, id)

		DIM permissao

		if isLogin() then
		
			id_usuario = get_id()
		
			If tabela="geral" OR tabela="individuais" then 
			
				permissao = true
				
			Else
			
				Select Case tabela
				
					Case "clubes"
					
						str = "Select id_clube FROM jogadores where id_jogador="&id_usuario&" AND id_clube="&id
  						Set rs = conexao_clubes.Execute(str)
						
						If rs.eof then
						
							permissao = false
						
						Else
						
							permissao = true
							
						End If
						
					Case "selecoes"
					
						str = "Select id_clube FROM jogadores where id_jogador="&id_usuario&" AND id_clube="&id
  						Set rs = conexao_selecoes.Execute(str)
						
						If rs.eof then
						
							permissao = false
						
						Else
						
							permissao = true
							
						End If
						
					Case Else
					
						permissao = false
						
				End Select
			
			End If
		
		Else
		
			permissao = false
			
		End IF
		
		permissao_tabelas = permissao
			

End Function
%>
